home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5 Years
/
Tiger_Disk_5_Years_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
029 - ende ! -
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
60 lines
10 rem"[141][145]">aus der nonsens-werkstatt von lukian<(NULL)"
50 [153]:[151]53281,6
90 [153]"load-- zum schluss ein basic-eierkopf --":[151]53280,0:[151]53281,0
95 [151]646,6 :[153]"tab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(":[153]:[153]
97 [153]" pokestepspc((NULL)wait print#orlenlenlenlenlen^wait "
98 [153]"verifyabsorlenlenlenlenlen=lenlenlenlenlen^waitint def(NULL)(NULL) (NULL)waitright$ print#peek(NULL)usrusrusr(NULL)peekwait"
99 [153]"verifyabspeek* peek rndpeekwaitint defmid$ o wait(NULL) print#peeksgn +peekwait"
100 [153]"verifyabs/lenlenlenlenlen>lenlenlenlenlenexpwaitint def(NULL)str$waitstep print#peeksgnpoke(NULL)usr(NULL)print#+peekwait"
101 [153]"verifyabsstop print#stepusrusrusrusr(NULL)waitverifyintclr step(NULL)(NULL)wait print#peeksgnpokesgn +print#+peekwait"
102 [153]"verifyabsstoplistsgnsgnsgnsgnsgnfnstop print# (NULL)right$ stopwaitverifyintclrstep usr:usr (NULL)wait print#peeksgnpokesgn +print#+peekwait"
103 [153]"verifyabsstoplistfnsgnfnsgnsgnfnstop print#peek /exp peekwaitverifyintclr chr$ . left$ wait print#peeksgnpokesgn +print#+(NULL)waitcont or=======";
105 [153]"verifyabsorlenlenlen=lenlenprint#mid$logloglogcos(NULL)waitverifyintclr(NULL)(NULL) . (NULL)waitstepwait stop print#peeksgnpokesgn +print#+peekwaitcont -(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";
106 [153]"verifyabs/lenlenlen>lenlenprint#rndnewnewnewnew*waitpokeor andandandandand ^wait print#peeksgnpoke(NULL)andsqrprint#+peekwaitcont -(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";:[151]646,9
107 [153]"verifyabsthentab(tab(tab(tab(tab(fortototototototototototototototototowaitprint#peeksgn +peekwaitcont -(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";
108 [153]" ":
109 [153]" da sitzt er nun, der arme wicht, "
110 [153]" denn neuen stoff, den hat er nicht.print
111 print" ein abo bei der 'tiger-crew' "
112 print" und das problem ist weg im nu! ":forz=1to75:
190 a=53280:forx=0to8:pokea,2:pokea,7:pokea,4:pokea,5:pokea,.:pokea,6 :restore
192 nextz:
195 ti$="000002":wait161,1:
198 :ti$="000002":wait161,1:
200 print"[147] [176][195][174][176][195][174][176][195][174][175][175][175][175][176][195][174][176][195][174][176]
202 [153]"cont orlenlenexp peekpeek /expna, dann/exp peekpeek /lenlen^ "
204 [153]"open orlenlen=(NULL)lenlenlenlen>exp orlenlenexp(NULL)usrusr(NULL)/lenlen^ />lenlenlenlen(NULL)=lenlen^ "
206 [153]"print or>lenlen><orlenlenlenlen^ -lenlenlen(NULL)andandsqrlenlenlen< orlenlenlenlen^->lenlen>^"
208 [153]" -lenlenlenlenexp/lenlenlenlenexp /lenlenlenexp /lenlenlenexp /lenlenlenlenexp/lenlenlenlen<"
210 [153]"cont peek absget winke, winke ! absget peek"
215 [153]"clr -^ orlen^orlenlenlenlenlenlenlen^ or^ or^ orlenlenlenlenlenlenlen^orlen^ or<"
217 [153]"def /< /lenexp/lenlenlenlen=lenlen<cont /exp /exp def-lenlen=lenlenlenlenexp/lenexp -exp"
219 [153]"for /=lenlenlenlenlenlen^ peek peekcont or^ or^ forpeek peek orlenlenlenlenlenlen=exp "
220 [153]" /=lenlenlenlenlen< /lenlen<clr /exp /exp -lenlenexp -lenlenlenlenlen=exp"
221 [153]"clr /lenlenlen=lenexp orlenlenexpverify lukianclr /lenlen^ /len=lenlenlenexp
222 print" [171][195][195][195][177][195][195][174][176][174][176][174][176][174][176][174][176][195][195][177][195][195][195][179] "
223 print"[151] [169][205][214][206][223] [173][195][195][195][195][195][195][189][173][189][173][189][173][189][173][189][173][195][195][195][195][195][195][189] [151][169][205][214][206][223]"
224 print" [213]v[201] [151][213]v[201]"
227 fori=0to23:c2$=c2$+chr$(32)+chr$(157)+chr$(17):nexti:c2$=c2$+chr$(145):
228 forj=0to30:ifj=0thenpoke781,24:sys59903
230 printchr$(19);tab(j);c2$:printchr$(19);tab(40-j);c2$
235 nextj:poke53280,0:poke53281,0
240 forz=1to600:next
301 form=54272to54295:pokem,0:next:poke54296,15:poke54277,9:
302 poke54278,49:poke54272,17
404 poke54296,15:poke54277,10:poke54278,202
408 readh,l,dr:print:print:print:print
410 ifh<0goto434
412 poke54287,h:poke54273,l:poke54276,21:print:print:print"[147]"
416 fort=1todr:next :poke54296,15
422 forb=0to34:next:pokes,1
424 goto404
426 data42,23,35,24,38,45,44,33,26,34,29,41,43,42,33,38,41,500:
428 data72,30,36,21,37,31,28,31,32,45,32,34,44,33,26,31,34,500
430 data13,49,4,57,6,6,82,1,500
432 data-1,-1,-1:
434 restore:i=i+2:ifi=1thenpoke54296,8
436 print"[147] finis! [144]";
500 forz=1to800:next:poke53280,14:poke53281,6:poke646,14:
501 poke54296,0:sys58253